home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / wds / nc_crdt.geo / 00001.ls next >
Encoding:
Text File  |  1997-03-19  |  2.4 KB  |  115 lines
  1. on startMovie
  2.   tell the stage
  3.     pause()
  4.   end tell
  5.   Set_NumOfCredit(18)
  6.   set the puppet of sprite 2 to 1
  7.   set the puppet of sprite 5 to 1
  8.   set the puppet of sprite 6 to 1
  9.   Set_pageNum(1)
  10.   LoadPage()
  11.   cursor([402, 403])
  12.   set the cursor of sprite 10 to [404, 405]
  13. end
  14.  
  15. on LoadPage
  16.   set the castNum of sprite 2 to the number of cast ("Credit" & get_PageNum())
  17.   if get_PageNum() < get_NumOfCredit() then
  18.     set the castNum of sprite 6 to the number of cast "NEXT"
  19.     set the cursor of sprite 6 to [404, 405]
  20.   else
  21.     set the castNum of sprite 6 to the number of cast "NEXT_F"
  22.     set the cursor of sprite 6 to [400, 401]
  23.   end if
  24.   if get_PageNum() > 1 then
  25.     set the castNum of sprite 5 to the number of cast "BACK"
  26.     set the cursor of sprite 5 to [404, 405]
  27.   else
  28.     set the castNum of sprite 5 to the number of cast "BACK_F"
  29.     set the cursor of sprite 5 to [400, 401]
  30.   end if
  31. end
  32.  
  33. on handleNextpage
  34.   Set_pageNum(get_PageNum() + 1)
  35.   LoadPage()
  36.   updateStage()
  37. end
  38.  
  39. on handleBackpage
  40.   Set_pageNum(get_PageNum() - 1)
  41.   LoadPage()
  42.   updateStage()
  43. end
  44.  
  45. on Set_pageNum theP
  46.   global CDpageNum
  47.   set CDpageNum to theP
  48. end
  49.  
  50. on get_PageNum
  51.   global CDpageNum
  52.   return CDpageNum
  53. end
  54.  
  55. on Set_NumOfCredit theP
  56.   global NumOfCredit
  57.   set NumOfCredit to theP
  58. end
  59.  
  60. on get_NumOfCredit
  61.   global NumOfCredit
  62.   return NumOfCredit
  63. end
  64.  
  65. on UpdateCursors theSp, theCursor
  66.   if theCursor = 0 then
  67.     set the cursor of sprite theSp to theCursor
  68.   else
  69.     set CursorCastNum to getCursor(theCursor)
  70.     set the cursor of sprite theSp to [CursorCastNum, CursorCastNum + 1]
  71.   end if
  72. end
  73.  
  74. on handleExit
  75.   global CreditWD
  76.   tell the stage
  77.     closeCreditWD()
  78.   end tell
  79. end
  80.  
  81. on switchButt spriteNum, castDown, macroName
  82.   set flag to 0
  83.   set SaveCast to the castNum of sprite spriteNum
  84.   set flag to swapCast(spriteNum, SaveCast, castDown)
  85.   repeat while the stillDown
  86.     set flag to swapCast(spriteNum, SaveCast, castDown)
  87.   end repeat
  88.   if flag = 1 then
  89.     sound stop 1
  90.     do(macroName)
  91.   end if
  92. end
  93.  
  94. on swapCast spriteNum, SaveCast, castDown
  95.   if rollOver(spriteNum) then
  96.     set the castNum of sprite spriteNum to the number of cast castDown
  97.     updateStage()
  98.     return 1
  99.   else
  100.     set the castNum of sprite spriteNum to the number of cast SaveCast
  101.     updateStage()
  102.     return 0
  103.   end if
  104. end
  105.  
  106. on initCursorCastNum
  107.   global CursorCastNum
  108.   set CursorCastNum to "400,402,404,406"
  109. end
  110.  
  111. on getCursor cursorNum
  112.   global CursorCastNum
  113.   return integer(item cursorNum of CursorCastNum)
  114. end
  115.